home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 201-225 / disk_218 / mandel / src / select.blk < prev    next >
Text File  |  1992-05-06  |  2KB  |  94 lines
  1. /*
  2.  *  Select requester structure described in blk 2.0.
  3.  */
  4.  
  5. #define hbox(color, space, contents) \
  6.         (h (| 1 color) (v (- 1 color)  (b 0 space) (h (b space 0) \
  7.         contents \
  8.         (b space 0)) (b 0 space) (- 1 color) ) (| 1 color))
  9.  
  10. #define tighthbox(color, contents) \
  11.         (h f (| 1 color) (v (- 1 color) \
  12.         (h contents) \
  13.         (- 1 color)) (| 1 color) f )
  14.  
  15. #define stringgad(num) \
  16.         (h (t"  11") (b 10 0) (t"----"):num)
  17.  
  18.  
  19. select 3 2 1
  20.  
  21. (v
  22.     (b 0 8)
  23.     (h f (b 10 0) (t"Select pen numbers per depth") f (b 10 0) )
  24.     (b 0 10)
  25.     (h
  26.     (b 10 0)
  27.     hbox(0, 3,
  28.         (v
  29.         stringgad(10) (b 0 2)
  30.         stringgad(11) (b 0 2)
  31.         stringgad(12) (b 0 2)
  32.         stringgad(13) (b 0 2)
  33.         stringgad(14) (b 0 2)
  34.         stringgad(15) (b 0 2)
  35.         stringgad(16) (b 0 2)
  36.         stringgad(17) (b 0 2)
  37.         stringgad(18) (b 0 2)
  38.         stringgad(19)
  39.         )
  40.     )
  41.     (b 10 0)
  42.     hbox(0, 3,
  43.         (v
  44.         stringgad(20) (b 0 2)
  45.         stringgad(21) (b 0 2)
  46.         stringgad(22) (b 0 2)
  47.         stringgad(23) (b 0 2)
  48.         stringgad(24) (b 0 2)
  49.         stringgad(25) (b 0 2)
  50.         stringgad(26) (b 0 2)
  51.         stringgad(27) (b 0 2)
  52.         stringgad(28) (b 0 2)
  53.         stringgad(29)
  54.         )
  55.     )
  56.     (b 8 0)
  57.     (v
  58.         (h  f
  59.         hbox(3, 1, hbox(0, 1, (b 12 68):1 ))
  60.         f
  61.         )
  62.         f
  63.         hbox(3, 1, hbox(0, 2, (t" OK ")):3 )
  64.     )
  65.     (b 10 0)
  66.     f
  67.     )
  68.     (b 0 8)
  69. )
  70.  
  71. 1 pv ,0 2700 :"PROPGADGETID" "v"
  72. 3         :"POSGADGETID" "ve"
  73.  
  74. 10 s :"VALUEGADGETID+ 0" "vl"
  75. 11 s :"VALUEGADGETID+ 1" "vl"
  76. 12 s :"VALUEGADGETID+ 2" "vl"
  77. 13 s :"VALUEGADGETID+ 3" "vl"
  78. 14 s :"VALUEGADGETID+ 4" "vl"
  79. 15 s :"VALUEGADGETID+ 5" "vl"
  80. 16 s :"VALUEGADGETID+ 6" "vl"
  81. 17 s :"VALUEGADGETID+ 7" "vl"
  82. 18 s :"VALUEGADGETID+ 8" "vl"
  83. 19 s :"VALUEGADGETID+ 9" "vl"
  84. 20 s :"VALUEGADGETID+10" "vl"
  85. 21 s :"VALUEGADGETID+11" "vl"
  86. 22 s :"VALUEGADGETID+12" "vl"
  87. 23 s :"VALUEGADGETID+13" "vl"
  88. 24 s :"VALUEGADGETID+14" "vl"
  89. 25 s :"VALUEGADGETID+15" "vl"
  90. 26 s :"VALUEGADGETID+16" "vl"
  91. 27 s :"VALUEGADGETID+17" "vl"
  92. 28 s :"VALUEGADGETID+18" "vl"
  93. 29 s :"VALUEGADGETID+19" "vl"
  94.